﻿<Serializable()> _
Public Class Elicitacao
    Inherits BaseDominio


    Private _nome As String
    Public Overridable Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property


    Private _dataOcorrencia As Date
    Public Overridable Property DataOcorrencia() As Date
        Get
            Return _dataOcorrencia
        End Get
        Set(ByVal value As Date)
            _dataOcorrencia = value
        End Set
    End Property



#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Elicitacao
        Return MyBase.ElicitacaoDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.ElicitacaoDao.Salvar(Me)
    End Sub

#End Region

End Class

